نمایش Resolutions سیستم
برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 4:51 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

نمایش Resolutions سیستم

برای این کار API زیر را باز کنید

Private Declare Function GetSystemMetrics Lib "User32" (ByVal index As Long) As Long

دستور زیر را به همراه API در جنرال بنویسید

Dim X As Long, Y As Long

برای دکمه یا هر چیز دیگری دستور زیر را بنویسید....

    X = GetSystemMetrics(0)
    Y = GetSystemMetrics(1)

    MsgBox "Resolutions is : " & CStr(X) & " X " & CStr(Y), vbExclamation, "Monitor"

 

....موفق باشد...

نظر بدین



نظرات شما عزیزان:

نام :
آدرس ایمیل:
وب سایت/بلاگ :
متن پیام:
:) :( ;) :D
;)) :X :? :P
:* =(( :O };-
:B /:) =DD :S
-) :-(( :-| :-))
نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه:





موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 137
بازدید دیروز : 1
بازدید هفته : 140
بازدید ماه : 220
بازدید کل : 224614
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1